home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / hpcontrl.lha / HP_Control / Install / HP_Control.install < prev   
Text File  |  1996-04-15  |  12KB  |  438 lines
  1. ; $VER: HP_Control.install 1.57 (01.01.96)
  2. ; Script to install HP_Control
  3. ;
  4. (complete 0)
  5.  
  6. ; Install script for HP_Control (Workbench 2.0 or higher)
  7.  
  8. (set old_level @user-level)
  9.  
  10. (set SourceRoot "/")
  11. ;=============================================================================
  12. ; German strings
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set default_lang 2)
  17.  
  18. (set #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  19.  
  20. (set #HP_Control-InstallMsg
  21. (cat "\n\HP_Control Installationsskript.\n"
  22.         "Diese Skript installiert HP_Control auf Ihrem Amiga.\n\n"
  23.         "Lesen Sie das Anleitungs-File für weitere Informationen\n"
  24.         " über den Vertrieb von HP_Control.\n\n"
  25.         "HP_Control © 1995-1996 Guido Mersmann\n"
  26.         "All Rechte reserviert."
  27. ))
  28.  
  29. (set #HP_Control-Where
  30. (cat "Wo möchten Sie HP_Control installieren ?\n"
  31.         "(Ein Verzeichnis wird angelegt)"
  32. ))
  33.  
  34. (set #HP_Control-Update
  35. (cat "\nEin HP_Control-Verzeichnis existiert im ausgewählen"
  36.         " Verzeichnis. Wenn Sie fortfahren,"
  37.         " bestätigen Sie, daß Sie die alte HP_Control-Installation"
  38.         " mit der neuesten Version updaten wollen."
  39.         " Verschiedene HP_Control-Dateien (z.B Prefs) werden falls nötig"
  40.         " überschrieben!"
  41. ))
  42.  
  43. (set #HP_Control-Main "Welche Version von HP_Control möchten Sie installieren?")
  44. (set #HP_Control-Main-help
  45. (cat "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  46.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  47.      " benutzt, wenn sich HP_Control im Hintergrund befindet. Dazu MUß"
  48.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  49.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  50.      " weiteren Speicher sparen."
  51. ))
  52.  
  53. (set #HP_Control-copying-Main "\nKopiere HP_Control nach HP_Control/...")
  54. (set #HP_Control-copying-Catalogs "\nKopiere Kataloge nach ...HP_Control/Locale/...")
  55. (set #HP_Control-copying-Printers "\nKopiere Kataloge nach ...HP_Control/Printers/...")
  56.  
  57. (set #HP_Control-Language "\nWelche Sprachen sollen installiert werden ?")
  58. (set #HP_Control-Language-help
  59. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen"
  60.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  61.          " nur die Sprachen anwählen, die sie benötigen"
  62.          " Haken Sie also einfach die Sprachen ab, die Sie"
  63.          " Ihrem System zugänglich machen wollen."
  64. ))
  65. (set #HP_Control-Docs "\nWelche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  66.  
  67.  
  68. (set #HP_Control-Printer "\nWelcher Druckertyp soll installiert werden ?")
  69. (set #HP_Control-Printer-Help
  70. (cat  "\nHP_Control unterstützt viele Drucker. Sie wählen ihren"
  71.       " Druckertyp aus und HP_Control paßt sich automatisch an."
  72.       " Sie können natürlich später mit dem Printer - Tooltype"
  73.       " diese Einstellung ändern."
  74. ))
  75.  
  76. (set #HP_Control-WBStartup
  77. (cat "\nWollen Sie das HP_Control bei jedem System start"
  78.      " automatisch gestartet wird ?"
  79. ))
  80.  
  81. (set #HP_Control-Exit
  82. (cat "\nHP_Control installaliert !!\n\n"
  83.      "Bitte reseten Sie ihren Rechner bevor Sie HP_Control"
  84.      " das erste Mal benutzen. Dadurch werden Probleme mit den"
  85.      " Sprachenkatalogen des Systems vermieden !!"
  86. ))
  87.  
  88.  
  89. ))
  90.  
  91. ;=============================================================================
  92. ; English strings
  93.  
  94. (if (<> @language "deutsch")
  95. (
  96. (set default_lang 4)
  97.  
  98. (set #bad-kick "You must have at least Workbench 2.0+")
  99.  
  100. (set #HP_Control-InstallMsg
  101. (cat "\n\HP_Control installation script.\n"
  102.         "This script installs HP_Control on your Amiga.\n\n"
  103.         "Read the DOK-file for more information\n"
  104.         " on the distribution of HP_Control.\n\n"
  105.         "HP_Control © 1995-1996 Guido Mersmann\n"
  106.         "All rights reserved."
  107. ))
  108.  
  109. (set #HP_Control-Where
  110. (cat "Where would you like to install HP_Control ?\n"
  111.         "(A drawer will be created)"
  112. ))
  113.  
  114. (set #HP_Control-Update
  115. (cat "\nA HP_Control drawer does already exist in the selected "
  116.         " directory. By selecting \"Proceed\", you"
  117.         " indicate that you want to update the HP_Control"
  118.         " installation with the most recent version.\n"
  119.         "Several HP_Control specific files will be overwritten!"
  120. ))
  121.  
  122. (set #HP_Control-Main "Which HP_Control version should be installed ?")
  123. (set #HP_Control-Main-help
  124. (cat "The OS2.0+ version should only be used on Systems with OS2."
  125.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  126.      " Special OS3.0+ functions are used to save more memory."
  127. ))
  128. (set #HP_Control-copying-Main          "Copying HP_Control to ...HP_Control/...")
  129. (set #HP_Control_copying-Catalogs      "Copying catalogs to ...HP_Control/Locale/...")
  130. (set #HP_Control_copying-Printers      "Copying catalogs to ...HP_Control/Printers/...")
  131.  
  132. (set #HP_Control-Language "\nWhich languages should be installed ?")
  133. (set #HP_Control-Language-help
  134. (cat "\nThe Amiga can be operated in many different"
  135.           " languages."
  136.           "To reduce the amount of space consumed by the"
  137.           " language files, you can select to have only the"
  138.           " files of specific languages copied.\n\n"
  139.           "Simply check the boxes of the languages you wish"
  140.           " to have available on your system.\n\n"
  141. ))
  142.  
  143. (set #HP_Control-Docs "\nWhich text files should be installed in \"HP_Control:Docs\" ?")
  144.  
  145. (set #HP_Control-Printer "\nWhich Printertype should be installed ?")
  146. (set #HP_Control-Printer-Help
  147. (cat  "\nHP_Control supports many Printers. Select your Printer here."
  148.       " Later you can change this by modifing the printer tooltype"
  149. ))
  150.  
  151. (set #HP_Control-WBStartup
  152. (cat "\nStart HP_Control by using WBStartup-Drawer ?"
  153. ))
  154.  
  155.  
  156. (set #HP_Control-Exit
  157. (cat "\nHP_Control installed !!\n\n"
  158.      "Please reset your computer before starting HP_Control"
  159. ))
  160.  
  161.  
  162. ))
  163. ;=============================================================================
  164. (set #version (/ (getversion) 65536))
  165.  
  166. (if (< #version 37)
  167.     (
  168.     (abort #bad-kick)
  169.     )
  170. )
  171.  
  172. (if (= #version 37) (set Binary 0))
  173. (if (= #version 38) (set Binary 1))
  174. (if (> #version 38) (set Binary 2))
  175.  
  176.  
  177. (set @default-dest "SYS:Tools/")
  178.  
  179.  
  180. (message #HP_Control-installmsg)
  181.  
  182. (welcome)
  183.  
  184.  
  185.  
  186. (set HP_Controldestdir
  187.         (tackon
  188.                 (askdir
  189.                         (prompt #HP_Control-Where)
  190.                         (help @askdir-help)
  191.                         (default @default-dest)
  192.                 )
  193.                 "HP_Control"
  194.         )
  195. )
  196.  
  197. (if (= (exists HP_Controldestdir) 2)
  198.         (message #HP_Control-Update)
  199. )
  200. (
  201.         (makedir HP_Controldestdir
  202.                 (help @makedir-help)
  203.                 (infos)
  204.         )
  205. )
  206. (set @default-dest HP_Controldestdir)
  207.  
  208. ;***** Create dirs
  209. (complete 20)
  210.  
  211. (makedir (tackon HP_Controldestdir "Catalogs"))
  212. (makedir (tackon HP_Controldestdir "Docs"))
  213. (makedir (tackon HP_Controldestdir "Prefs"))
  214. (makedir (tackon HP_Controldestdir "Printer"))
  215. (makedir (tackon HP_Controldestdir "Docs/Deutsch"))
  216. (makedir (tackon HP_Controldestdir "Keyfile"))
  217.  
  218. ;***** Delete old Data and Prefs
  219. (delete (tackon HP_Controldestdir "HP_Control"))
  220. (delete (tackon HP_Controldestdir "HPControl"))
  221. (delete (tackon HP_Controldestdir "Prefs/#?"))
  222. (delete (tackon HP_Controldestdir "Printers/#?"))
  223. ;***** Icons
  224. (complete 30)
  225.  
  226. (copyfiles
  227.         (source (tackon SourceRoot "Docs.info"))
  228.         (dest HP_Controldestdir)
  229. )
  230. (copyfiles
  231.         (source (tackon SourceRoot "HP_Control.info"))
  232.         (dest HP_Controldestdir)
  233. )
  234. (copyfiles
  235.         (source (tackon SourceRoot "HPControl"))
  236.         (dest HP_Controldestdir)
  237. )
  238.  
  239. ;***** HP_Control_Main
  240. (complete 40)
  241.  
  242. (set Binary (askchoice
  243.     (prompt #HP_Control-Main)
  244.     (help #HP_Control-Main-help)
  245.     (choices
  246.     "OS2.0+"
  247.                            "OS2.1+"
  248.                            "OS3.0+"
  249.                         )
  250.     (default Binary)
  251.             )
  252. )
  253.  
  254. (set Binary (Select Binary "Dummy" "OS21" "OS30"))
  255.  
  256. (if (<> Binary "Dummy")
  257.  
  258. (copyfiles
  259.         (prompt "\n" #HP_Control-copying-Main)
  260.         (source (tackon (tackon SourceRoot "Bin") Binary) (infos))
  261.         (dest HP_Controldestdir)
  262.         (newname "HPControl")
  263.         (help @copyfiles-help)
  264.         (optional <force>)
  265. )
  266. (Rename (tackon HP_Controldestdir Binary) (tackon HP_Controldestdir "HPControl"))
  267. )
  268. ;***** Catalogs
  269. (complete 50)
  270. (set lang (askoptions
  271.                 (prompt #HP_Control-Language)
  272.                 (help #HP_Control-Language-help)
  273.                 (choices
  274.                         "English"
  275.                         "Deutsch")
  276.                 (default -1)
  277.         )
  278. )
  279. ;***** Copy Catalogs
  280. (set n 0)
  281. (while (< n 2)
  282.         (set language (select n "english" "deutsch"))
  283.         (
  284.                 (if (IN lang n)
  285.                 (
  286.                         (makedir (cat (tackon HP_Controldestdir "Catalogs/") language))
  287.                         (copyfiles
  288.                                 (source (cat (tackon SourceRoot "Catalogs/") language))
  289.                                 (dest (cat (tackon HP_Controldestdir "Catalogs/") language))
  290.                                 (help @copyfiles-help)
  291.                                 (all)
  292.                         )
  293.                 )
  294.                 )
  295.         )
  296. (set n (+ n 1))
  297. )
  298.  
  299. ;***** DOCS
  300. (complete 60)
  301. (set docs (askoptions
  302.                         (prompt #HP_Control-Docs)
  303.                         (help @askoptions-help)
  304.                         (choices
  305.                         "Guide"
  306.                             "ASCII"
  307.  
  308.                                 )
  309.                         (default -1)
  310.                   )
  311. )
  312.  
  313. (set n 0)
  314. (while (< n 2)
  315.         (set documents (select n "HP_Control.Guide" "HP_Control.Dok"))
  316.         (
  317.                 (if (IN docs n)
  318.                 (
  319.                         (copyfiles
  320.                                 (source (cat (tackon SourceRoot "Docs/Deutsch/") documents))
  321.                                 (dest (tackon HP_Controldestdir "Docs/Deutsch/"))
  322.                                 (help @copyfiles-help)
  323. ;                               (infos)
  324.                         )
  325.                 )
  326.                 )
  327.         )
  328. (set n (+ n 1))
  329. )
  330. ;***** Printers
  331. (complete 70)
  332.  
  333. (copyfiles
  334.         (prompt "\n" #HP_Control-copying-Printers)
  335.         (source (tackon SourceRoot "Printer/"))
  336.         (dest (tackon HP_Controldestdir "Printer/"))
  337.         (help @copyfiles-help)
  338.         (optional <force>)
  339.         (all)
  340. ;        (infos)
  341. )
  342.  
  343. ;***** Select Printer
  344. (complete 80)
  345. (set Printer (askchoice
  346.     (prompt #HP_Control-Printer)
  347.     (help @askchoice-help)
  348.     (default 9)
  349.     (choices
  350.     "Hewlett Packard DJ540"
  351.     "Hewlett Packard DJ600"
  352.     "Hewlett Packard DJ660c"
  353.     "Hewlett Packard DJ850c"
  354.     "Hewlett Packard III"
  355.     "Hewlett Packard IIID"
  356.     "Hewlett Packard IIISi"
  357.     "Hewlett Packard IIIP"
  358.     "Hewlett Packard 4"
  359.     "Hewlett Packard 4L"
  360.     "Hewlett Packard 4M"
  361.     "Hewlett Packard 4ML"
  362.     "Hewlett Packard 4Si"
  363.     "Hewlett Packard 4SiMx"
  364.                            "Hewlett Packard 5L"
  365.                            "Hewlett Packard 5MP"
  366.                            "Hewlett Packard 5P"
  367.     "Other Printer"
  368.                         )
  369.             )
  370. )
  371.  
  372. (set Printer    (Select Printer
  373.     "HP540"
  374.     "HP600"
  375.     "HP660c"
  376.     "HP850c"
  377.     "HPIII"
  378.     "HPIIID"
  379.     "HPIIISI"
  380.     "HPIIIP"
  381.     "HP4"
  382.                         "HP4L"
  383.     "HP4M"
  384.     "HP4ML"
  385.     "HP4Si"
  386.     "HP4SiMx"
  387.                            "HP5L"
  388.                            "HP5MP"
  389.                            "HP5P"
  390.     "BEST"
  391.     )
  392. )
  393. ;*+** WB_Startup ?
  394. (complete 90)
  395. (Set WBStartup (askbool
  396.     (prompt #HP_Control-WBStartup)
  397.     (help #HP_Control-Printer-help)
  398.     (Default 1)
  399.                )
  400. )
  401. ;**** ToolTypes
  402. (complete 95)
  403. (tooltype
  404.    (dest (tackon HP_Controldestdir "HP_Control"))
  405.    (noposition)
  406.    (SetDefaultTool (tackon HP_ControldestDir "HPControl"))
  407.    (SetToolType "PRINTER" Printer)
  408. )
  409. ;**** WBStartup
  410. (complete 97)
  411.  
  412.  (IF (= WBStartup 1)
  413.   (copyfiles (source (tackon HP_ControldestDir "HP_Control.info"))
  414.              (dest "SYS:WBStartup")
  415.   )
  416.  )
  417. ;***** KEYFILE
  418. (complete 98)
  419.  
  420. (if (<> (exists (tackon SourceRoot "Keyfile/HP_Control.key") (noreq)) 0)
  421. (
  422.         (copyfiles
  423.                 (source (tackon SourceRoot "Keyfile/HP_Control.key"))
  424.                 (dest (tackon HP_ControldestDir "Keyfile/"))
  425.                 (help @copyfiles-help)
  426.  
  427.         )
  428. )
  429. )
  430.  
  431. ;***** Startup-Sequence
  432. (complete 99)
  433.  
  434. ;***** Finished
  435. (complete 100)
  436.  
  437. (exit #HP_Control-exit)
  438.